home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / math / 2houtei.bas next >
BASIC Source File  |  1993-11-30  |  390b  |  18 lines
  1. 10 CLS
  2. 20 PRINT "二次方程式の計算"
  3. 30 PRINT "aX2+bX+c=0"
  4. 40 INPUT "a=",A
  5. 50 INPUT "b=",B
  6. 60 INPUT "c=",C
  7. 70 PRINT A"X2+"B"X+"C"=0"
  8. 80 D=B*B-4*A*C
  9. 90 IF D=0 THEN 150
  10. 100 IF D<0 THEN 170
  11. 110 X1=(-B+SQR(D))/(2*A)
  12. 120 X2=(-B-SQR(D))/(2*A)
  13. 130 PRINT "X="X1","X2
  14. 140 A$=INKEY$:IF A$="" THEN 140 ELSE 10
  15. 150 X1=-B/(2*A)
  16. 160 PRINT "X="X1 : GOTO 140
  17. 170 PRINT "解は無し" : GOTO 140
  18.